home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / util / gnu / emacs_src.lha / emacs-18.58 / contrib / hessu / emacs.rexx < prev    next >
OS/2 REXX Batch file  |  1992-10-01  |  495b  |  26 lines
  1. /* emacs.rexx */
  2.  
  3.  
  4. parse arg params
  5. id=pragma('id')
  6.  
  7. if ~show('P', 'EMACS1') then do
  8.     if ~open(out, 't:emacs', 'w') then do
  9.         say "EMACS.REXX: Can't open temporary file!"
  10.         exit 5
  11.     end
  12.     call writeln(out, 'stack 49152')
  13.     call writeln(out, 'run >nil: <nil: temacs' params)
  14.     call writeln(out, 'stack 16384')
  15.     call close(out)
  16.     address command 'execute t:emacs'
  17.     exit
  18. end
  19.  
  20.  
  21. if word(params,1)='-f' then do
  22.     address 'EMACS1' '('subword(params, 2)')'
  23.     exit
  24. end
  25. address 'EMACS1' '(find-file "'params'")'
  26.